home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / 10point.tex < prev    next >
Encoding:
Text File  |  1992-08-26  |  1.2 KB  |  33 lines
  1. %%%
  2. %%% Set up the tenpoint macros
  3. %%%
  4. %%% Unhappy things will happen if this file is loaded twice
  5. %%% So don't... as a matter of fact, don't load it directly, let one of the
  6. %%% other size changing macros do it for you.
  7. %%%
  8. %%% Written by Don Hosek
  9. %%%
  10. \ifx\loadedfrommacro Y\else
  11.          \message{10point.TeX must be loaded from a macro package.}
  12.          \message{Input terminated.}
  13.          \endinput\fi
  14.  
  15. \font\tencsc=cmcsc10
  16.  
  17. \newfam\scfam
  18.  
  19. \def\tenpoint{\def\rm{\fam0\tenrm}% switch to 10-point type
  20.     \textfont0=\tenrm  \scriptfont0=\sevenrm  \scriptscriptfont0=\fiverm
  21.     \textfont1=\teni   \scriptfont1=\seveni   \scriptscriptfont1=\fivei
  22.     \textfont2=\tensy  \scriptfont2=\sevensy  \scriptscriptfont2=\fivesy
  23.     \textfont3=\tenex  \scriptfont3=\tenex    \scriptscriptfont3=\tenex
  24.     \textfont\itfam=\tenit   \def\it{\fam\itfam\tenit}%
  25.     \textfont\slfam=\tensl   \def\sl{\fam\slfam\tensl}%
  26.     \textfont\ttfam=\tentt   \def\tt{\fam\ttfam\tentt}%
  27.     \textfont\bffam=\tenbf   \scriptfont\bffam=\sevenbf
  28.     \scriptscriptfont\bffam=\fivebf  \def\bf{\fam\bffam\tenbf}%
  29.     \textfont\scfam=\tencsc  \def\sc{\fam\scfam\tencsc}%
  30.     \normalbaselineskip=12pt
  31.     \setbox\strutbox=\hbox{\vrule height8.5pt depth 3.5pt width0pt}%
  32.     \normalbaselines\rm}
  33.